home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00300.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.2 KB  |  37 lines
  1. on exitFrame
  2.   global ppl, advance, foes
  3.   set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  4.   set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  5.   if sprite(getAt(ppl, 1)).flipH = 0 then
  6.     set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  7.   else
  8.     set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  9.   end if
  10.   if (advance = 13) or (advance = 14) then
  11.     if getAt(foes, 2) < 116 then
  12.       setAt(foes, 2, 122)
  13.       chkhit(getAt(ppl, 3), 116, 122, 3, 2, 138)
  14.     end if
  15.     if getAt(foes, 1) < 87 then
  16.       setAt(foes, 1, 94)
  17.       chkhit(getAt(ppl, 2), 87, 94, 2, 1, 137)
  18.     end if
  19.   else
  20.     if (advance = 15) and (getAt(foes, 1) < 271) then
  21.       setAt(foes, 3, 280)
  22.       chkhit(getAt(ppl, 4), 271, 280, 4, 3, 294)
  23.     else
  24.       if (advance = 16) or (advance = 17) then
  25.         if getAt(foes, 3) < 271 then
  26.           setAt(foes, 3, 280)
  27.           chkhit(getAt(ppl, 4), 271, 280, 4, 3, 294)
  28.         end if
  29.         if getAt(foes, 2) < 116 then
  30.           setAt(foes, 2, 122)
  31.           chkhit(getAt(ppl, 3), 116, 122, 3, 2, 138)
  32.         end if
  33.       end if
  34.     end if
  35.   end if
  36. end
  37.